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PROCEDURES  FOR  CSTIMATING  THE  FLAT-WEIGHTED  PEAK 
LEVEL  PRODUCED  BY  SURFACE  AND  BURIED  CHARGES 


1  INTRODUCTION 


Background 

Blast  noise  from  Army  demolitions  often  causes  residents  of  nearby  communities  to 
complain  about  noise  and  damage.  An  Army  installation's  environmental  officer  or  plan¬ 
ner  needs  to  be  able  to  estimate  the  immediate  noise  effects  of  demolitions  activity  on 
the  surrounding  area  when  deciding  on  sites  for  explosive  activities.  For  infrequent  or 
unusual  events,  estimates  of  the  effects  are  needed  to  avoid  complaints  or  damage  to 
nearby  buildings.  For  noise  mitigation  purposes,  it  is  desirable  to  be  able  to  estimate 
how  deep  a  charge  must  be  buried.  For  installations  where  noise  control  is  achieved  by 
limiting  the  weight  of  explosive  that  can  be  used,  it  is  useful  to  be  able  to  calculate  the 
equivalent  weight  of  a  buried  charge. 

The  long-term  impacts  of  any  operation  should  be  evaluated  using  the  procedures  of 
the  Installation  Compatible  Use  Zone  (ICUZ)  program  described  in  Army  Regulation 
(AR)  200-1,  Chapter  7.1  In  that  method,  in  brief,  noise  zones  are  determined  using  a 
C-weighted  average  level  calculated  from  all  activities  producing  impulse  noise.  Incom¬ 
patible  land  uses  can  be  determined  for  the  zones. 


Objective 

The  objective  of  this  study  was  to  develop  a  quick  method  for  environmental  offi¬ 
cers  and  planners  to  estimate  immediate  noise  effects  of  explosives  and  to  estimate 
possible  noise  effects  of  infrequent  or  unusual  explosives  operations. 


Approach 

Damage  criteria  are  usually  expressed  in  terms  of  flat-weighted  peak  levels. 
Existing  methods  of  estimating  these  levels  were  reviewed.  The  best  techniques  were 
incorporated  into  simple  procedures  involving  graphical  look-ups.  These  procedures  were 
described  and  then  illustrated  with  several  practical  examples.  The  estimates  of  the 
effect  of  burial  on  blast  noise  were  compared  to  measurements  made  at  two  different 
locations. 

The  basic  equations  used  in  this  procedure  are  discussed  in  detail  in  USA-CERL 
Technical  Report  (TR)  E-17.J  The  accuracy  of  the  procedures  for  estimating  the  noise 


‘Army  Regulation  (AR)  200-1,  Environment  Protection  and  Enhancement  (Department  of 
the  Army,  15  June  1982). 

!P.  D.  Sehomer,  Predicting  Community  Response  to  Blast  Noise,  Technical  Report  (TR) 
E-H/AD773690  (U.S.  Army  Construction  Engineering  Research  Laboratory  (USA- 
CERLj,  December  1973). 
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levels  for  different  weather  conditions  was  confirmed  in  the  reset:  h  described  in  USA- 
CERL  TR  N-13.3  The  validity  of  the  charge  burial  correction  was  established  in  tests 
performed  at  Fort  Lewis,  WA  in  May  1978  and  at  Fort  Leonard  Wood,  MO  in  April  1980. 
A  portion  of  the  results  from  Fort  Leonard  Wood  is  described  in  USA-CERL  TR  N-112.4 
These  results  were  compared  with  the  results  from  the  prediction  method  developed  in 
this  report. 

The  estimation  method  has  been  computerized  and  installed  on  the  Environmental 
Technical  Information  System  (ETIS)  for  easy  use. 


Mode  of  Technology  Transfer 

This  technical  report  will  be  distributed  to  Army  facilities  engineers  for  field  use. 
The  Army  Environmental  Hygiene  Agency,  as  the  Army  operational  noise  agency,  has 
been  briefed  on  the  procedure.  The  interactive  computer  program  will  be  installed  on 
ETIS.  After  testing,  the  procedure  will  be  incorporated  in  a  future  technical  manual  on 
noise  mitigation.  The  algorithms  will  also  serve  to  support  the  Department  of  Defense's 
Resource  Conservation  and  Recovery  Act  (RCRA)  Part  B  Permit  Writers'  Cuidance 
Manual  for  Open  Buming/Open  Detonation. 


JP.  D.  Sehomer,  R.  J.  Goff,  and  L.  M.  Little,  7?ie  Statistics  of  Amplitude  and  Spectrum 
of  Blasts  Propagate d  in  the  Atmosphere ,  TR  N-13/ADA033475  (Vol  1),  ADA033361 
(Vot  2)  (USA-CERL,  November  1976). 

'‘Richard  Raspet,  Use  of  Aqueous  Foam  to  Mitigate  Demolitions  Noise,  TR  N-112/ 
ADA11 1446  (USA-CERL,  December  1981). 
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2  PROCEDURE  FOR  ESTIMATING  THE  FLAT-WEIGHTED  PEAK  LEVEL 


Three  steps  are  used  in  estimating  the  flat-weighted  peak  level.  The  first  is  the 
determination  of  the  level  produced  by  0.454  kg  (1.0  lb)*  of  TNT.  The  second  is  the  cal¬ 
culation  of  the  correction  for  different  weights  and  types  of  charges.  The  final  calcula¬ 
tion  is  the  correction  for  depth  of  burial. 


Step  1:  Peak  Level  Due  to  a  0.454  kg  Charge  at  a  Given  Distance 

Figure  1  displays  the  peak  level  in  free  air  from  0.454  kg  of  TNT  as  a  function  of 
distance  in  kilometers.  (Corrections  for  charges  on  the  ground  are  shown  on  p  13.)  The 
different  curves  on  this  figure  correspond  to  different  weather  conditions.  For  normal 
weather  conditions,  the  base  curve  provides  a  reasonable  estimate,  but  higher  levels  can 
occur.  For  the  initial  calculations,  the  base  curve  will  be  used.  (The  conditions  to  which 
each  curve  applies  are  given  in  Chapter  3,  in  the  discussion  of  the  computer  program 
PEAKEST.)  For  example,  the  base  level  of  0.454  kg  of  TNT  at  1000  m  (0.62  mi)  would  be 
124  dB. 


Figure  I.  Peak  level  versus  distance  for  1  tt>  (0.454  kg)  of  TNT  in  free  air. 


•Conversion  factors  are  given  on  p  28, 
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Step  2:  Correction  for  Weight  or  Type  of  Charge 

If  a  different  amount  or  type  of  explosive  is  used,  the  peak  level  found  in  Step  1 
mast  be  adjusted  by  a  correction  factor,  A.  This  factor  depends  on  the  amount  of  TNT. 
Since  other  types  of  explosives  release  different  amounts  of  energy,  it  is  necessary  to 
compare  the  amount  of  energy  in  the  charge  to  that  in  the  standard  explosive,  TNT.  This 
is  done  by  using  an  efficiency  factor  to  calculate  the  equivalent  weight  of  TNT.  Table  1 
gives  thi?  efficiency  factor  for  various  military  explosives.  For  example,  if  one  had  5.0 
kg  of  C 4,  it  would  be  equivalent  to  1.34  x  5.0  kg  =  6.7  kg  of  TNT;  that  is,  the  efficiency 
of  the  C4  thnes  the  weight  of  the  C4  in  kilograms  gives  the  equivalent  weight  of  TNT. 
The  composition  and  equivalent  weights  of  some  common  demolition  materials  are  listed 
in  Table  2. 

Once  the  equivalent  weight  is  known,  the  correction,  A,  to  the  peak  level  can  be 
calculated  from  A  =  8  log  (w/0.454),  where  w  is  the  weight  (or  equivalent  weight)  of 
TNT.  Alternatively,  A  can  be  looked  up  in  Figure  2.  For  example,  the  6.7  kg  equivalent 
above  has  a  correction  of  about  9.4  dB. 


Table  1 

Efficiency  Factors  for  Calculating  Equivalent  Weights 


SsgtaalM 

gfejag 

TUT 

1.00 

Tatrytol,  Ml.  M2 

uo 

CempotUion  C3,  Ml.  MS 

1.34 

CcmpotUitXt  C4,  MSAI,  1 

Mill 

1.30 

Am«ofliu«  nllral* 

0.A3 

sasloaive.  Mil*.  Mill 

1.40 

(.ttemolUlaa 

Military  4yM0»H«  Ml 

0.93 

ASM 

0.IS 

(CowwiroUl) 

SOM 

0.7* 

fif'M 

9.03 

Ammoflta  <iyn»«ait«{ 

ASM 

e.oi 

(Cds>M«'eUIl 

SOM 

0.A0 

MM 

0.S3 

dy*4«»t 

ASM 

0.42 

SOM 

0.4? 

S4M 

0.T0 

PETS 

1.00 

Ttliyi 

1.3$ 

CompoitlVon  U 

1.3S 

Aeaawl  10/20 

1.12 

Black  Powdar 

0.SS 

SUroatarc* 

0.00 

Paatoiita 

1.37 

* 
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Table  2 


Common  Demolitions  and  Their  Equivalent  Weights 


OaooUtloo  Kxploaieea  Approximate  TNT  Equivalent 


Demolition  Kit, 

Bangalore  Torpedo 

M1A1 

4.1 

kg  Amatol 

5.2  kg 

O.S 

kg  TNT  Booster 

M2A2 

4.3 

lb  Comp  B4 

7.0  kg 

O.S 

kg  A-3  Booster 

Charge,  Demolition: 

13.3 

kg  Ammonium  Nitrate 

10.3  kg  +  Booster 

Block,  40-lb  Cratering 

4.S 

kg  TNT 

Charge 

Charge,  Demolition:  Shaped 

(1$  lb)  M2A3 

4.3 

kg  comp  B 

6.9  kg 

0.9 

kg  P  UNTO  LUTE 

(15  lb)  Ml  A  4 

S,2 

kg  comp  B 

7.0  kg 

0.03 

kg  A3 

(40  lb)  M3 

12.1 

kg  comp  B 

11.3  kg 

0.1 

kg  PENTOUTE 

(40  lb)  M3  A  l 

13.1 

kg  comp  8 

11.6  kg 

0.03 

kg  A3 
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Step  3:  Correction  for  Burial 

The  depth  at  which  the  explosive  is  buried  will  reduce  the  peak  level.  First,  the 
scaled  depth  of  burial  must  be  calculated.  The  scaled  depth  is  the  depth  of  the  top  of  the 
charge  in  meters  divided  by  the  cube  root  of  the  charge's  equivalent  weight  in  kilograms. 
The  cube  root  can  be  looked  up  on  Figure  3.  For  example,  if  the  C4  charge  above,  with 
an  equivalent  weight  of  6.7  kg,  were  buried  0.50  m,  it  would  have  a  scaled  depth  of: 

?  °  —  -—--77  -  0.26  m/(kg)l/3 

(6.7  kg)1/3 


Figur  e  3.  Cube  root  of  weight  versus  weight 


This  scaled  depth  is  used  to  look  up  the  correction  for  burial  on  Figure  4.  For  this 
example,  the  burial  correction  is  8.0  d3.  Thct  is,  this  charge  would  be  8.0  dB  quieter 
when  buried  0.50.  m.  (In  the  remainder  of  this  repo.t,  scaled  depths  are  written  without 
units,  and  m/kg1'3  is  referred  to  as  "scaled  meter.") 

Putting  these  three  calculations  together,  one  can  calculate  the  peak  level  due  to  5 
kg  of  C4  buried  0.50  m  at  a  distance  of  1000  m: 

Peak  Level  =  124  d3  +  9.4  dB  -  8.0  dB  =  125.4  dB 
Using  the  principles  above  one  can  answer  three  types  of  questions. 

1.  Given  the  type  and  weight  of  charge,  depth  of  burial,  and  the  distance  to  some 
critical  area,  what  is  the  expected  peak  level? 

2.  Given  a  particular  charge  weight  and  type,  how  deep  must  the  charge  be  buried 
to  be  equivalent  to  a  given  weight  limit? 

3.  Given  a  particular  charge  weight  and  type,  how  deep  must  the  charge  be  buried 
to  keep  the  peak  level  under  some  critical  limit  at  a  particular  location? 


Figure  4.  Burial  correction  chart. 
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Example  1:  Peak  Level 

Three  M2  demolition  blocks  are  buried  1  ft.  The  demolition  site  is  400  m  from  an 
unoccupied  building.  Is  there  a  possibility  the  building  will  be  damaged? 

Step  1.  Calculate  the  level  due  to  0.454  kg  of  TNT  at  400  m.  From  Figure  1,  the 
base  curve  value  is  134  dB  ,  and  the  probable  focus  value  is  139  dB. 

Step  2.  Calculate  the  equivalent  weight  of  TNT  and  look  up  the  weight  correction. 
An  M2  demolition  block  contains  2.5  lbs  of  tetrytol.  By  Table  2,  tetrytol  has  an  effi¬ 
ciency  of  1.2.  First,  calculate  the  weight  of  tetrytol  in  kilograms. 

3  blocks  x  2.5  lbs/block  x  0.454  kg/lbs  =  3.4  kg 
Next,  multiply  the  weight  by  the  efficiency. 

3.4  kg  x  1.2  =  4.1  kg  of  TNT 
Finally,  look  up  the  correction  factor  in  Figure  2. 

Weight  correction  factor  =  8.2  dB 

Step  3.  Calculate  the  correction  factor  for  burial.  Convert  the  depth  of  burial  to 
meters. 


1  ft  x  0.3048  m/ft  =  0.305  m 

Next,  calculate  or  look  up  the  cube  root  of  4.1  kg,  Using  Figure  3, 

(4.1) 1/5  =  1.8 


Calculate  the  scaled  depth. 


0.305  m/1.6  =  0.19  scaled  meters 

Use  Figure  4  to  get  the  depth  correction. 

Depth  correction  factor  *  9.5  dB 

Combining  the  corrections,  the  levels  ares 

base  =  134  dB  +  8.2  dB  -  9.5  dB  =  133  dB 
probable  focus  =  139  dB  ♦  8.2  dB  -  9.5  dB  =  138  dB. 

For  cither  of  these  levels  minor  damage  is  possible  (Table  3).  The  charge  should  be 
buried  deeper,  set  further  from  the  building,  or  reduced  in  size. 

Example  2:  Burial  Depth  for  Equivalent  Weight 

How  deep  would  40  lb  of  military  dynamite  have  to  be  buried  to  be  as  quiet  as  2  kg 
of  TNT  above  ground? 
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Table  3 


Blast  Noise  Complaint  Potential 


Flat  Weighted  Peak  Level 


0  - 

110 

110  - 

125 

125  - 

140 

130  - 

140 

> 

140 

Risk  of  Complaints 
Low 

Moderate 

High 

High;  Possibility  of 
Damage  Claims 
High;  Possible  Damage 
to  Structures 


Step  1.  Calculate  the  equivalent  weight  of  the  dynamite.  First,  convert  to  kilo¬ 
grams. 


40  lb  x  0.454  kg/lb  =  18.2  kg 

Then,  by  Table  1,  the  efficiency  is  0.92,  so  the  equivalent  weight  is 

0.92  x  18.2  kg  =  16.7  kg. 

Step  2.  Calculate  how  much  louder  40  lb  of  dynamite  is  than  2  kg  of  TNT.  By 
Figure  2,  the  weight  correction  for  2.0  kg  is  5.2  dB;  for  16.7  kg  it  is  12.5  dB.  So  the  16.7 
kg  charge  needs  to  be  made 


12.5  -  5.2  =  7.3  dB  quieter. 

Step  3.  From  Figure  4,  the  scaled  depth  necessary  to  quiet  a  charge  7.3  dB  is  about 
0.16  scaled  meters.  To  convert  to  actual  depth,  multiply  the  scaled  depth  times  the  cube 
root  of  the  charge  weight.  By  Figure  3,  the  cube  root  of  16.7  kg  is  about  2.6. 

So,  to  be  as  quiet  as  2.0  kg  of  TNT,  the  depth  the  dynamite  would  have  to  be  buried 

at  is: 


2.6  x  0.16  m  =  0.42  m. 

The  charge  would  have  to  be  ouried  at  least  42  cm. 

Example  3:  Burial  Depth  to  Main  lin  Peak  Below  Limit 

How  deep  mus!  a  40-lb  cratering  charge  boosted  by  1.25  lbs  of  C4  b-i  buried  so  that 
the  peak  sound  pressure  level  will  not  exceed  115  dE  at  2.0  km,  under  a  wide  variety  of 
weather  conditions? 

Step  1.  Calculate  the  L.  M  predicted  fer  0.454  kg  at  2.0  km.  Use  the  probable 
focus  curve  of  Figure  1;  this  curve  gives  a  level  of  124  dB  at  2.0  km. 

Step_2.  Calculate  the  equivalent  charge  weight  and  the  weigh;  correction.  Table  2 
gives  the  equivalent  we’ght  for  the  40-lb  cratering  charge  of  10.3  kg  *  equivalent  weight 
of  the  booster  charge.  The  booster  used  is  1.25  lbs  of  C4.  Convert  to  kilograms  and  mul¬ 
tiply  by  the  efficiency  in  Table  1. 
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Booster  charge  =  1.25  lbs  x  0.454  kg/lb  x  1.34  =  0.76  kg 

The  total  equivalent  weight  is  10.3  +  0.76  kg  =  11.1  kg  of  TNT.  By  Figure  2,  the  weight 
correction  is  1 1.4  dB. 

Step  3.  Calculate  how  much  reduction  is  needed.  The  peak  level  with  the  charge 
on  the  surface  would  be  123  dB  +  11.3  dB  =  134.3  dB,  The  desired  level  is  115  dB,  so  the 
level  needs  to  be  reduced  by  19.3  dB  by  burying  the  charge. 

Step  4.  Figure  4  indicates  that  the  top  of  the  charge  must  be  0.6  scaled  meters 
below  the  surface  to  achieve  that  much  quieting.  To  convert  to  actual  depth,  multiply  by 
the  cube  root  of  the  equivalent  weight.  This  can  be  looked  up  in  Figure  3.  The  actual 
depth  is: 

0.61  m  x  (ll.l)l/3  =  1.37  m 

So  the  charge  must  be  buried  about  1.3  m  for  the  sound  not  to  exceed  115  dB  at  2.0  km. 


Case  Studies 

USA-CERL  has  performed  two  studies  involving  charges  on  the  surface  and  buried 
charges.5  Here,  the  measured  levels  will  be  compared  with  those  predicted  by  the  pro¬ 
cedure  outlined  in  this  report. 

Test  1:  Fort  Lewis,  WA 

In  test  one,  three  types  of  charges  were  fired:  (a)  2.3  kg  of  C4  on  the  surface,  (b) 
9.1  kg  of  C4  buried  60  cm  in  glacial  till,  and  (c)  a  40-lb  cratering  charge  boosted  by  1.13 
kg  of  C4  buried  15  cm  in  glacial  till.  All  levels  were  measured  at  380  m  from  the  charge. 
Table  4  presents  the  results  of  this  study. 


Table  4 


Results  of  Tests  at  Fort  Lewis,  WA  in  dB 


C-SKL 

F-SEL 

PEAK 

5  lb  of  C4  in  air 
at  380  m 

116.1 

118.9 

138.8 

40-lb  cratering  charge 
buried  15  cm  in  glacial 
till  at  380  m 

117.2 

120.1 

139.4 

20  lb  of  C4  buried 

60  cm  in  glacial  till 
at  380  m 

111.2 

113.7 

133.5 

5  Richard  Raspet. 
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(a)  2.3  kg  Charge 

•  The  level  due  to  0.454  kg  of  TNT  for  the  base  curve  at  380  m  is  135.0  dB. 

•  The  equivalent  weight  is  2.3  kg  x  1.34  =  3.1  kg. 

•  The  correction  from  Figure  2  is  6.7  dB. 
a  There  is  no  correction  factor  for  burial. 

The  total  level  predicted  is  142  dB.  The  measured  level  was  138.8  dB. 

(b)  9.1  kg  Charge 

•  The  level  of  0.454  kg  is  135.5  dB. 

•  The  weight  equivalent  is  1.34  x  9.1  kg  =  12.2  kg. 

•  The  weight  correction  is  11.5  dB,  from  Figure  2. 

•  For  the  scaled  depth  of  burial,  the  cube  root  of  12.1  kg  is  2.29,  from  Fig¬ 
ure  3;  the  scaled  depth  is  0.6Qm/2.29  =  0261  scaled  meters.  From  Figure  4, 
the  correction  is  12  dB. 

The  total  predicted  level  is  135.5  +  11.5  -  12  =  135.0  dB.  The  measured  average  level  was 
132. 


(c)  40-lb  Cratering  Charge 

•  Level  due  to  0.454  kg  is  135.5  dB  at  390  m 

•  Weight  equivalent  by  Table  2  is  10.3  kg  +  equivalent  weight  of  booster.  The 
booster  charge  was  1.13  kg  of  C4  so  the  total  equivalent  charge  was: 

10.3  kg  +  (1.13  kg  x  1.34)  =  11.8  kg 

•  The  weight  correction  from  Figure  2  is  11.4  dB. 

•  The  scaled  depth  is 

0.15  m/(11.8  kg)ly/j  =  0.066  scaled  meters 
This  reduces  the  lcvei  by  about  2  dB. 

Thus,  the  expected  base  level  is  135.5  dB  «•  11.8  dB  -  2.0  dB  =  145.3.  The  measured  level 
was  139.4  dB. 

Note  that  in  all  these  cases,  the  predicted  value  was  larger  than  the  measured 
value  by  4  to  6  dB.  The  measurements  were  made  near  midday  on  a  windy  day.  For 
these  conditions  the  negative  focus  curve  of  Figure  1  would  be  more  appropriate.  The 
estimates  prepared  from  the  base  curves  are  conservative  for  negative  gradient  weather 
conditions. 

Test  2:  Fort  Leonard  Wood,  MO 

In  this  test,  two  sizes  of  charges  were  fired:  (a)  2.3  kg  of  charge  above  ground  and 
(b)  a  40-lb  cratering  charge  boosted  by  0.57  kg  of  C4  and  buried  60  to  90  cm  in  sandy 
loam  with  an  average  depth  of  75  cm.  Microphones  were  placed  at  152  m  and  304  m. 
See  Table  5  for  the  average  levels. 
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Table  5 


Results  of  Tests  at  Fort  Leonard  Wood,  MO  In  dB 


C-SEL 

F-SEL 

PEAS 

1 1/4  lb  of  C4  in  air 

At  152  m 

At  304  m 

122.8 

114.7 

125.5 

117.1 

148.2 

138.7 

5  lb  of  C4  in  air 

At  152  m 

At  304  m 

127.7 

118.8 

131.7 

123.0 

153.2 

145.0 

40-lb  cratering  charges 
buried  60  to  90  cm  in 
sandy  loam 

At  152  m 

At  304  m 

116.9 

109.4 

122.8 

114.9 

142.8 

134.5 

(a)  2.3  kg  charge 

•  The  levels  due  to  0.454  kg  of  TNT  using  the  base  curve  of  Figure  1  at  152 
and  305  m,  respectively,  are  145.0  dB  and  138.0  dB. 

•  The  equivalent  weight  is  1.34  x  2.3  kg  =  3.1  kg. 

•  The  weight  correction  is  6.7  dB. 

•  No  correction  for  burial. 

The  total  predicted  peak  levels  are  151.7  dB  and  144.7  dB,  The  measured  levels  were 
148.2  dB  and  138.7  dB. 

(b)  40-lb  Cratering  Charge  with  0.57  kg  C4  Booster 

•  Levels  due  to  0.454  kg  of  TNT  are  145.0  and  138.0  dB  at  152  m  and  305  m, 
respectively. 

•  The  equivalent  weight  from  Table  2  is  10.3  kg  +  1.34  x  0.57  kg  =  11.1  kg. 

•  The  weight  correction  is  11.5  dB. 

•  The  scaled  depth  of  burial  is  the  average  depth  divided  by  (ll.l)1' J,  or  0.75 
m/2.2  =  0.34  scaled  meters. 

•  The  correction  from  Figure  4  is  -14.7  dB. 

Thus  the  total  levels  predicted  at  152  m  and  305  m  are  141.8  dB  and  134.8  dB.  The 
measured  average  values  were  142.8  dB  and  134.5  dB. 

Again,  the  predicted  values  are  higher  than  those  measured,  so  the  procedure  is  a 
conservative  one.  The  test  values  in  this  case  would  be  better  represented  if  the  nega¬ 
tive  gradient  curve  on  Figure  4  were  used. 

The  calculations  described  in  this  chapter  result  in  reasonable  predictions  of  over¬ 
pressure  for  surface  and  buried  charges.  Unless  care  is  taken  to  fire  only  under  favorable 
conditions  (Table  6),  the  probable  focus  curve  should  be  used  for  predictions. 
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Conditions  to  be  avoided  are: 

•  Nighttime  and  2  hr  before  sunset  and  2  hr  after  sunrise 

•  Calm  days  during  the  presence  of  high  pressure  areas 

•  Times  when  there  are  stable  cloud  layers 

•  Times  when  there  are  wind  shears  aloft. 

The  curves  in  Figure  1  cannot  be  used  for  propagation  over  water.  The  levels  would 
be  much  higher  in  that  case. 


Table  6 

"Good"  and  "Bad”  Firing  Conditions 


Good  Conditions 

Bad  Conditions 

Clear  skies  with  billowy  cloud 
formations,  especially  during 
warm  periods  of  the  year 

Days  of  steady  winds  of  5-10  mph 
with  gusts  of  greater  velocities 
(above  20  mph)  in  direction  of 
residences  close  by 

A  rising  barometer  immediately 
following  a  storm 

Clear  days  on  which  "layering"  of 
smoke  or  fog  is  observed 

Cold,  hazy,  or  foggy  mornings 

Days  following  a  day  when  large 
extremes  of  temperature  (about 
20°C)  between  day  or  night  were 
noted 

Generally  high  barometer  readings 
with  low  temperatures 
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3  USING  OF  THE  PROGRAM  "PEAKEST" 


The  procedures  described  in  Chapter  2  have  been  computerized  for  use  on  the 
Environmental  Technical  Information  System  (ETIS).*  This  chapter  demonstrates  the  use 
of  this  program,  PEAKEST,  to  perform  the  examples  given  in  Chapter  2.  The  user  is 
prompted  for  inputs  and  the  program  uses  equations  to  calculate  the  values  that  were 
looked  up  on  the  graphs  in  the  manual  procedure.  -  A  record  of  an  actual  interactive  ses¬ 
sion  is  given  below.  Any  external  comments  or  explanations  are  given  in  parentheses, 
and  input  from  the  user  is  underlined.  To  run  PEAKEST  on  ETIS,  do  the  following  steps. 

Type  etis  to  access  the  ETIS  system. 

Type  10  for  the  misc  directory. 

Type  peakest  to  start  the  program. 

(This  is  the  introduction  given  at  the  start  of  every  session.) 

This  program  makes  peak  level  noise  predictions  for  explosions  and  possible  effects 
of  the  predicted  levels.  The  program  is  useful  for  siting  explosives  operations  and 
for  assessing  infrequent  or  unusual  explosives  operations.  Note  that  any  long  term 
operations  MUST  be  assessed  by  the  procedures  of  AR  200-1  and  the  Installation 
Compatible  Use  Program.  This  program  cannot  be  used  over  water.  All  through  this 
program  you  will  be  asked  (Yes/No)  questions.  The  computer  reads  the  first  letter 
of  your  response  so  a  y  or  n  will  suffice  or  you  can  just  hit  a  return  to  continue.  All 
weights  are  in  kilograms  and  all  distances  are  in  meters.  The  program  provides 
weather  predictions  for  three  weather  conditions  and  maximum  level  curve.  Do  you 
want  a  short  listing  of  these  conditions  (Y/N )?  y 

Negative  gradient-  Sunny  day,  cumulus  clouds,  midday,  windy 

Base-  Low  winds,  clouds,  fall  and  winter,  daytime 

Focus-  Low  stable  clouds,  very  low  winds  (<2  m/s),  nighttime  to  2  hr  after  sunrise,  win¬ 
ter  and  fall 

Maximum  possible  overpressure-  Rare,  but  levels  will  sometimes  occur  under  extreme 
focus  conditions. 

Do  you  want  a  copy  of  this  introduction  (Y/N)?  y 

Do  you  want  a  copy  of  this  session  saved  in  a  storage  file  (Y/N)?  y 

ok  it  will  be  in  fort  ? 

(Example  1) 

(Find  the  base  level  for  three  blocks  of  M 1  buried  1  ft  at  400  m.) 

Do  you  want  a  standard  demolition  charge?  (Y/N)  n 
Do  you  want  an  explosive  other  than  TNT?  (Y/N)  y 

(The  program  prints  out  your  choices.) 


•ETIS  may  be  accessed  through  the  ETIS  Support  Center,  Department  of  Urban  and 
Regional  Planning,  University  of  Illinois.  Users  may  obtain  a  login  from  the  Center  by 
calling  (217)  333-1369. 
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1)  TNT 

2)  Tetrytol,Ml,M2 

3)  Comp.  C3,M3,M5 

4)  Comp.  C4,M5A1,M112 

5)  Ammonium  nitrate 

6)  Sheet  expl.,  M186,M118 
,j  Military  dynamite,  Ml 
Straight  dynamite 

8)  40% 

9)  50% 

10)  60% 

11)  PETN 

(You  want  Ml  explosive,  so  pick  number  2.) 

Enter  explosive  type  number  2 
Weight  is  1.00 
Change?  (Y/N)  ->  y 

(You  want  3  blocks  x  2.5  Ibs/block  x  0.454  kg/lb  =  3.4  kg.) 

Enter  new  value  of  weight  ->  3.40 

distance  is  1000.00 
Change?  (Y/N)  ->  y 

(Change  the  distance  from  the  default  to  400  tn.) 

Enter  new  value  of  distance  ->  400.00 

depth  is  0.00 
Change?  (Y/N)  ->  y 

(The  charge  is  to  be  buried  at  1  ft  =  0.3048  m.) 

Enter  new  value  of  depth  ->  0.30 

equivalent  wt=  4.08  distance  =  400.00  depth=  0.30 

(Here  is  the  equivalent  weight  (weight  x  efficiency)  and  the  input  values.) 

hit  C  to  change  the  distance  or  depth,  return  to  continue 

(This  gives  you  a  chance  to  correct  errors.  There  are  not  any  here,  so  hit  return  to  con 
tinue;  you  get  the  levels  with  appropriate  suggestions.) 

Suggestions: 

For  negative  gradient  conditions  the  level  is  128 
There  is  a  high  risk  of  complaints 

For  base  conditions  the  level  is  133 
There  is  a  high  risk  of  complaints 
There  is  a  possibility  of  damage  complaints 


Ammonia  dynamite 

13)  40% 

14)  50% 

15)  60% 

Gelatin  dynamite 

16)  40% 

17)  50% 

18)  60% 

19)  Tetryl 

20)  Comp.  B 

21)  Amatol  80/20 

22)  Black  Powder 


21 


For  focus  conditions  the  most  probable  level  is  137 

There  is  a  high  risk  of  complaints 

There  is  a  possibility  of  damage  complaints 

The  maximum  level  possible  is  138 
There  is  a  high  risk  of  complaints 
There  is  a  possibility  of  damage  complaints 

hit  x  to  exit,  n  for  a  new  weight,  return  to  continue 

(x  was  pressed  to  exit.  A  new  session  was  started  to  illustrate  Example  2.  You  can  avoid 
this  by  picking  n  instead  of  x  when  asked  if  you  want  to  exit.) 

(Example  2) 

(How  deep  would  40  lb  of  military  dynamite  have  to  be  buried  to  be  as  quiet  as  2  kg  of 
TNT  above  ground?) 

Do  you  want  a  standard  demolition  charge?  (Y/N)  n 

(First  find  the  level  for  2  kg  of  TNT  so  take  the  default  of  TNT.) 

Do  you  want  an  explosive  other  than  TNT  (Y/N)  n 

weight  is  1.00 

Change?  (Y/N)  ->  y 

Enter  new  value  of  weight  ->  2,00 

distance  is  1000.00 

(You  just  want  to  compare  two  explosive  types  without  varying  the  distance  so  just  stay 
with  the  default  distance.) 

Change?  (Y/N)  ->  n 
depth  is  0.00 
Change?  (Y/N)  ->  n 

(The  2  kg  charge  is  not  buried.) 

equivalent  wt  =  2.00  distance  =  1000.00  depth  =  0.00 
hit  C  to  change  the  distance  or  depth,  return  to  continue 

(Hit  return  to  get  the  results  for  2  kg  of  TNT.) 

Suggestions: 

For  negative  gradient  conditions  the  level  is  122 
There  is  a  high  risk  of  complaints 

For  base  conditions  the  level  is  129 
There  is  a  high  risk  of  complaints 

For  focus  conditions  the  most  probable  level  is  133 

There  is  a  high  risk  of  complaints 

There  is  a  possibility  of  damage  complaints 
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The  maximum  level  possible  is  139 
There  is  a  high  risk  of  complaints 
There  is  a  possibility  of  damage  complaints 

hit  x  to  exit,  n  for  a  new  weight,  return  to  continue 


(Hit  n  to  enter  a  new  weight  and  explosive  type.) 


Do  you  want  a  standard  demolition  charge?  (Y/N)  n 
Do  you  want  an  explosive  other  than  TNT?  (Y/N)  y 


(The  program  prints  out  the  choices.) 

1)  TNT 

2)  Tetrytol,Ml,M2 

3)  Comp.  C3,M3,M5 

4)  Comp.  C4,M5A1,M1 12 

5)  Ammonium  nitrate 

6)  Sheet  expl.,  Ml 86, Ml  18 

7)  Military  dynamite, Ml 
Straight  dynamite 

8)  40% 

9)  50% 

10)  60% 

11)  PETN 


Ammonia  dynamite 

13)  40% 

14)  50% 

15)  60% 

Gelatin  dynamite 

16)  40% 

17)  50% 

18)  60% 

19)  Tetryl 

20)  Comp.  B 

21)  Amatol  80/20 

22)  Black  Powder 


(Now  you  want  to  get  levels  for  military  dynamite,  so  pick  number  7.) 

Enter  explosive  type  number  7 
weight  is  2.00 
Change?  (Y/N)  y 

(You  want  40  lb  x  0.454  kg/lb  =  18.16  kg.) 

Enter  new  value  of  weight  ->  18.16 

(Kcop  the  distance  constant  and  change  the  other  variables.) 

distance  is  1000.00 
Change?  (Y/N)  ->  n 
depth  is  0.00 
Change?  (Y/N)  ->  y 

(Now,  because  there  is  no  built-in  formula  for  picking  a  depth  which  will  give  a  certain 
level  (one  less  than  for  2  kg  of  TNT),  you  will  have  to  guess  a  depth.  Then  look  at  the 
levels,  and  bury  the  charge  deeper  if  you  need  the  levels  to  be  lower,  or  reduce  the  burial 
depth  if  the  levels  arc  quieter  than  the  2  kg  of  TNT.  The  first  guess  was  0.3  m.) 

Enter  new  value  of  depth  ->  0.30 

equivalent  wt  =  16.71  distance  =  1000.00  depth  =  0.30 

hit  C  to  change  the  distance  or  depth,  return  to  continue 

(Hit  continue  to  see  results  of  the  first  guess.) 


23 


Suggestions: 

For  negative  gradient  conditions  the  level  is  124 
There  is  a  high  risk  of  complaints 

For  base  conditions  the  level  is  131 
There  is  a  high  risk  of  complaints 
There  is  a  possibility  of  damage  complaints 

For  focus  conditions  the  most  probable  level  is  136 

There  is  a  high  risk  of  complaints 

There  is  a  possibility  of  damage  complaints 

The  maximum  level  possible  is  142 
Complaints  are  likely 
Possible  damage  to  structures 

hit  x  to  exit,  n  for  a  new  weight,  return  to  continue 

(These  levels  are  louder  than  the  2  kg  of  TNT,  so  the  40-lb  charge  needs  to  be  buried 
deeper:  hit  return  to  continue.) 

distance  is  1000.00 
Change?  (Y/N)  ->  n 
depth  is  0.30 
Change?  (Y/N)  ->  y 

(You  want  to  bury  it  deeper,  so  input  0.65  m.) 

Enter  new  value  of  depth  ~>  0,65 

equivalent  wt  =  16.71  distance  =  1000.00  depth  =  0.65 

hit  C  to  change  the  distance  or  depth,  return  to  continue 

(Hit  return  to  see  the  results  of  the  second  guess.) 


Suggestions: 

For  negative  gradient  conditions  the  level  is  120 
There  is  a  moderate  risk  of  complaints 

For  base  conditions  the  level  is  127 
There  is  a  high  risk  of  complaints 

For  focus  conditions  the  most  probable  level  is  131 

There  is  a  high  risk  of  complaints 

There  is  a  possibility  of  damage  complaints 

The  maximum  level  possible  is  137 

There  is  a  high  risk  of  complaints 

There  is  a  possibility  of  damage  complaints 

hit  x  to  exit,  n  for  a  new  weight,  return  to  continue 

(It  might  take  a  few  more  guesses  to  get  the  enact  levels  but  for  now  it  is  close  enough.) 

(x  was  pressed  to  exit,  and  a  new  session  was  started  for  Example  3.  You  can  avoid  this 
by  picking  n  instead  of  x  when  asked  if  you  want  to  exit.) 
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(Example  3) 

(How  deep  must  you  bury  a  40-lb  eratering  charge  so  the  probable  focus  levels  will  be 
under  115  dB?) 

(This  charge  is  one  of  the  standard  explosives  listed  in  this  report.) 

Do  you  want  a  standard  demolition  charge?  (Y/N)  y 
(When  you  ask  for  a  standard  charge,  you  are  provided  with  a  listing.) 

1)  M1A1  bangalore  torpedo 

2)  M2A2  bangalore  torpedo 

3)  40  lb  cratering  charge 

4)  M2  A3  15  lb  shaped  charge 

5)  M2A4  15  lb  shaped  charge 

6)  M3  40  lb  shaped  charge 

7)  M3A1  40  lb  shaped  charge 

Enter  explosive  type  number  3 

Will  you  use  more  than  one  standard  charge?  (Y/N)  n 

(If  you  wanted  to  use  more  than  one  cratering  charge  you  should  answer  yes  here.) 

Do  you  want  to  add  a  booster?  (Y/N)  y 

(Yes,  to  add  a  booster.) 


Pick  an  explosive  type 

1)  TNT 

2)  Tctrytol,Ml,  M2 

3)  Comp.  C3,M3,M5 

4)  Comp.  C4,M5A1,MU2 

5)  Ammonium  nitrate 

6)  Sheet  expl.,  M 186, M 118 

7)  Military  dynamite, Ml 
Straight  dynamite 

8)  40% 

9)  50% 

10)  60% 

11)  PETN 

(The  booster  is  C4,  so  pick  number  4.) 

Enter  explosive  type  number  4 
(You  want  1.25  lb  x  0.45  kg/lb.) 


Ammonia  dynamite 

13)  40% 

14)  50% 

1$)  60% 

Gelatin  dynamite 

16)  40% 

17)  SQ% 

18)  60% 

19)  Tetryl 

20)  Comp.  B 

21)  Amatol  80/20 

22)  Black  Powder 


Enter  total  weight  of  ALL  boosters  ->  0.57 
distance  is  1000.00 
Change?  (Y/N)  ->  y 
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(Go  to  2  km  =  2000  m) 


Enter  new  value  of  distance  ->  2000,00 
depth  is  0.00 
Change?  (Y/N)  ->  y 

(Now  you  start  guessing  as  in  Example  2.  The  first  guess  was  0.5  m.) 

(Remember,  just  bury  deeper  until  ^ou  get  the  desired  level  (115  dB  in  this  example)  or 
lower.) 

Enter  new  value  of  depth  ->  0.50 

equivalent  wt  =  11.06  distance  =  2000.00  depth  =  0.50 

hit  C  to  change  the  distance  or  depth,  return  to  continue 

Suggestions: 

For  negative  gradient  conditions  the  level  is  111 
There  is  moderate  risk  of  complaints 

For  base  conditions  the  level  is  119 
There  is  a  high  risk  of  complaints 

For  focus  conditions  the  most  probable  level  is  124 
There  is  a  high  risk  of  complaints 

The  maximum  level  possible  is  130 
There  is  a  high  risk  of  complaints 

hit  x  to  exit,  n  for  a  new  weight,  return  to  continue 

(Hit  return  to  continue.) 

distance  is  2000.00 
Change?  (Y/N)  ->  n 
depth  is  0.50 
Change?  (Y/N)  ->  y 

(Try  a  bit  deeper,  say  1.2  m.) 

Enter  new  value  of  depth  ->  1.20 

equivalent  wt  =  11.06  oistai  o  „<  -  2000.00  depth  =  1.20 

hit  C  to  change  the  distance  or  depth,  return  to  continue 

Suggestions: 

For  negative  gradient  conditions  the  level  is  99 
There  is  little  risk  cf  complaints 

For  base  conditions  the  level  is  108 
There  is  little  risk  of  complaints 

For  focus  conditions  the  most  probable  level  is  113 
There  is  moderate  risk  of  complaints 
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The  maximum  level  possible  is  118 

There  is  a  moderate  risk  of  complaints 

hit  x  to  exit,  n  for  a  new  weight,  return  to  continue 

distance  is  2000.00 

Change?  (Y/N)  ->  n 

depth  is  1.20 

Change?  (Y/N)  ->  y 

(Do  not  need  to  go  that  deep.) 

Enter  new  value  of  depth  ->  1.10 

equivalent  wt  =  11.06  distance  =  2000.00  depth  =  1.40 

hit  C  to  change  the  distance  or  depth,  return  to  continue 

Suggestions: 

For  negative  gradient  conditions  the  level  is  102 
There  is  little  risk  of  complaints 

For  base  conditions  the  level  is  110 
There  is  little  risk  of  complaints 

For  focus  conditions  the  most  probable  level  is  115 
There  is  moderate  risk  of  complaints 

The  maximum  level  possible  is  121 

There  is  a  high  risk  of  complaints 

hit  x  to  exit,  n  for  a  new  weight,  return  to  continue 

distance  is  2000.00 

Change?  (Y/N)  ->  n 

depth  is  1.40 

Change?  (Y/N)  ->  y 

(Just  about  five  centimeters  more  should  do  it.) 

Enter  new  value  of  depth  ->  1J5 

equivalent  wt  =  11.06  distance  -  2000.00  depth  -  1.45 

hit  C  to  change  the  distance  or  depth,  return  to  continue 

Suggestions: 

For  negative  gradient  conditions  the  level  is  101 
There  is  little  risk  of  complaints 

For  base  conditions  the  level  is  109 
The  i  is  little  risk  of  complaints 

For  focus  conditions  the  most  probable  level  is  114 
There  is  moderate  risk  of  complaints 

The  maximum  level  possible  is  120 
There  is  a  moderate  risk  of  complaints 

hit  x  to  exit,  n  for  a  new  weight,  return  to  continue 

(Hit  x  to  exit;  you're  finished.) 
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4  CONCLUSION 


This  report  has  described  a  quick  method  for  the  environmental  officer  or  planner 
to  estimate  the  possible  noise  effects  of  explosive  operations.  This  three-step  procedure 
can  be  done  manually  by  looking  up  values  on  the  tables  and  graphs  provided  in  this 
report,  then  using  these  values  to  calculate  the  peak  level  in  various  situations.  The  pro¬ 
cedure  has  also  been  successfully  implemented  as  a  computer  program  on  the  Environ¬ 
mental  Technical  Information  System  (ETIS). 


METRIC  CONVERSION  FACTORS 

1  lb  =  0.454  kg 
I  ft  =  0.3048  ffl 
1  mi  =  t .609  km 
1  in.  =  25.4  mm 
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APPENDIX: 


COMPUTER  PROGRAM  LISTING 

In  the  following  listing  of  the  FORTRAN  source  code,  for  PEAKEST,  the  ->-> 
marks  appearing  at  the  left  margin  indicate  lines  that  had  to  be  broken  to  fit  on  smaller 
paper. 


c  get  type  of  blast (wt  in  tnt  or  standard  or  wt  of  standard  type) 

c  then  get  depth  and  distance  to  charge 

real  blev(4) ,wt(7),ef(23) 

c  arrays  are  for  the  blast  level,  charge  wieght  and  efficiency  respectively 
integer  exptyp,bsttyp, stdtyp 

c  integers:  explosive  type  for  charge  or  booster  and  standard  demolition  type 
character  ans , namel ( 8 ) , name2 ( 8 ) , name3 ( 8 ) , name4 ( 8 ) 
data  namel/' w' , 'e1 , * i ' , * g ' , ' h ' , ' t ' , '  '/ 

data  name2/ 'd'/i'/'s'/'t'/'a'i'a'/'c'/eV 
data  name3/'d' , 'e' , 'p' , * t ' , 'h1 , '  ’/ 

data  name4/‘n' , 'u‘ , 'm* , 'b‘ , 'e1 , *r* , '  '/ 

call  strtinfo(iw) 
exptyp-1 
ml-28.2 
m2»23 . 5 
m3~22 . 5 
m4  *  2  3 . 0 
m42-23 . 0 
m43-23 . 0 
wt( 1 )  -5.2 
vrt  ( 2  3 -7  . 
wt ( 3 ) “10 . 3 
wt ( 4 ) “6 . 9 
wt ( 5 ) «7 . 
wt(6)-18. 3 
wt( 7 )»18 . 6 
e  f  ( 1 )  - 1 . 
ef ( 2 ) -1 . 2 
ef (3)»1 . 34 
et'(4  )"1 ,  34 
ef(5)-.42 
ef(6)-l.  14 
ef(7)«.92 
ef (8)",65 
ef (9)-,79 
ef ( 10)* . 83 
ef ( 1 1 )"  1 . 66 
of ( 12)"1 . 23 
e  f  ( 1 3 ) " .  4 1 
of  ( 14  )•* ,  46 
e  f  ( 1 3 )  -  .  '5  3 
©  f  ( 1 6 )  - .  4  2 
e  f  (  X  7  )  “  .  4  7 
<>f(  18)-. 76 
«t(19)-l.25 
rtl(20)-1.35 
•*t  (  21 )"  l .  17 
rtf (22)-. 55 
Of (23)-. 8 

r  default,  values 

weight-1 .00 
stdnuin- 1 . 0 
*xptype-l 
dist" 1000.0 

c  end  defaults 

::tdtyp-0 

2  write(6,"(  M)o  you  want  a  standard  demolition  charge’  <Y/'N)  ’,$)") 

read(5,"(a)“)  ans 

if ( iw.eq. l )wr ite{ 7 , " ( ‘ Do  you  want  a  standard  demolition  charge’  (Y/N) 
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if ( (ans.eq. 'y ' ) .or. (ans.eq. '  Y' ) )then 

write ( 6 , " ( ' 1 )  M1A1  bangalore  torpedo ' ) " ) 
write (6," ( * 2 )  M2A2  bangalore  torpedo1)") 
write(6,"( *3)  40  lb  cratering  charge')") 

write (6, "('4)  M2A3  15  lb  shaped  charge ')" ) 

write (6," ( ’5)  M2A4  15  lb  shaped  charge')") 

write(6,"( '6)  M3  40  lb  shaped  charge ')" ) 

write(6, " ( ’7)  M3A1  40  lb  shaped  charge ')" ) 

write ( 6 , " ( ' Enter  number  of  the  explosive  type  ',$)") 
read( 5, " ( i2)" )stdtyp 

if (iw.eq. l)write(7, "( 'Enter  number  of  the  explosive  type  ',i2)") 

->->  stdtyp 

write(6,"( 'Will  you  use  more  than  one  standard  charge?  (Y/N) 

->->  )") 

read(5,"(a)")  ans 

if(iw.eq.l)write(7,"( 'Will  you  use  more  than  one  standard  charge 
->->  ?  (Y/N)  ' ,a)" )ans 

if ( (ans.eq. *y' ) .or. (ans.eq. • Y ' ) )  then 
call  getval(stdnum,name4,iw) 

endif 

write (6," ( 'Do  you  want  to  add  a  booster?  (Y/N)  ',$)") 
read(5,"(a)'')  ans 

if(iw.eq.l)write(7,"( 'Do  you  want  to  add  a  booster?  (Y/N)  ' , a ) " ) 
ans 

if ( (ans.eq. 'y' ) .or. (ans.eq. ’ Y ' ) )then 

write(6, "( ' Pick  an  explosive  type')") 
if(iw.eq.l)write(7,”( 'Pick  an  explosive  type')") 
call  getet(ans,bsttyp, iw) 
bw-0 . 

write(6, " ( ' Enter  total  weight  of  all  boosters  ->  ',$)") 
read(5,*)  bw 

if(iw.eq.l)write(7, "( 'Enter  total  weight  of  all  boosters 

->->  ~>  ' , f 9 . 2 ) " ) bw 

endif 

weight“Stdnum*wt ( stdtyp ) +bw* (ef ( bsttyp ) ) 

endif 

i f ( stdtyp . ne . 0 ) goto3 

write(6, " ( 'Do  you  want  an  explosive  other  than  TNT?  (Y/N)  ',$)") 
read( 5, " (a)" )  ans 

if (iw.eq. l)write(7, " ( 'DO  you  want  an  explosive  other  than  TNT?  (Y/N)  ‘,a 

->->  )")ans 

call  getet(ans,exptyp, iw) 
c  qet  weight  distance  and  depth 

wrlte(6, "( 'weight  is  ' , f 9 . 2) " )weiqht 
if(iw.eq. l)write(7,"( 'weight  is  ' , f9. 2 ) " )weight 
call  getvai(welght,namel,lw) 
c  efficiency  correction 

weight-weight *ef (exptyp) 

3  do  4, it- 1,20 

7  write(6, "( 'distance  is  ' , f9 . 2) " )dist 

if(iw,eq. l)write(7,"( 'distance  is  ’ , f9 . 2)" )dist 
call  getval(dist,name2, iw) 

if((dist.gt. 50000). or. (dist.lt. 100))  write(6, " ( 'Out  of  range  of  piugrnm' 
)") 

if( (dlst ,gt. 50000) .or. (dist. It . 100) .and. iw.eq. 1)  write(7, " ( 'Out  of  range 
->->  of  proqram' ) " ) 

wrlte(6 ."( 'depth  is  ' ,  t'9.2)" )depth 

lf(  iw.eq.  l)wrlte(7,  “( 'depth  is  1 ,  t’9 •  2) "  )depth 

.Ml  1  gel  val  ( depth. name t, iw) 

wiit*>(h,  “( valetit  wt  -  distance  •*  '.l'H.2,'  depth-  li 

->->  it  <:  to  change  t.he  distance  or  depth, return  to  continue1 )" jweight, dist, depth 

rnad(  5, "  (a)" )  ans 

i.f(iw.oq,  l)write(7,"(  ’eqivalent  wt-  ‘ ,  f  7 . 2 ,  ‘  distance  -  ',f8.2,’  depth- 
->->  • ,  t'7 .  2 , / '  hit  C  to  change  the  distance  or  depth,  return  to  continue' )" )weight,d 

->->  ist, depth 

if ( (ans.eq. ' c' ) .or. (ans.eq. 'C' ) )goto7 
c  calculate  the  4  base  levels 

blev( 1)« 146. 5-ml*alogl0(dis t/1 00.0) 
blev( 2)-148. 5-m2*alogl0(dist/100.0) 
blev(3)-152.-m3*alogl0(dist/100.0) 
i f (dist. ge. 27400 )blev( 3 )-98 .4 

if (dist. le.600. )blev(4 )-153 . -m4  *alogl0(dist/100.0) 

if (dist .gt. 600.0. and. dist. le, 3000. )blev(4)-159.0~m42*alogl0(dist/100.0) 
if (dist. gt. 3000. )blev(4)-165.0-m43*alogl0(dist/100.0) 


30 


c  weight  correction 

wtcorr=8*alogl0(weight/.454 ) 
blev( 1 ) =blev( l ) twtcorr 
blev(  2 )  =blev(  2 ) -t-wtcorr 
blev ( 3 ) =blev ( 3 ) +wtcor r 
blev(4)=blev(4)+wtcorr 
c  burial  correction 

cdepth--=depth/( weight*  *  .  3333) 
burcor=cdepth* 34 . 4 4 +3 . 

if ( cdepth . gt . 0 . 9 ) burcor = ( cdepth-0 . 9 ) *  1 . 9+ 34 . 
blev(  1  )-^blev(  1) -burcor 
blev( 2 )  blev( 2) -burcor 
blev ( 3 ) =blev ( 3 ) -burcor 
blev ( 4 ) =blev ( 4 ) -burcor 
c  check  for  warnings 

do  21  i6=6 , 7 

if (iw.ne. 1 .and. i6.eq.7)goto21 
write(i6,"( 'Suggestions: ' )”) 

write(i6,''(  ' - - - 

->->  - - * )" ) 

do  20  i  =  l,4 
c  round  at  .5 

blevi=blev( i)+0. 5 

if ( i.eq. I)vrite(i6, "( ' For  negative  gradient  conditions  the  level  is  ',f9 
.0)")  blevi 

if(i.eq.2)write(i6,"( 'For  base  conditions  the  level  is  ',f9.0)")  blevi 
if ( i .eq. 3)write(i6, “(  ‘ For  focus  conditions  the  most  probable  level  is’,f 
->->  9.0)")  blevi 

if (i.eq. 4 )write(i6 , "( 'The  maximum  level  possible  is',f9.0)")  blevi 
if(blev(i)  .It.  110.  )write(i6,"(  'There  is  little  risk  of  complaints')") 
if(blev(i) .ge. 110.0. and. blev(i). It. 120)write( i6, " ( 'There  is  moderate  ris 
->->  k  of  complaints')") 

if (blev(i) .ge. 120.0. and. blev( i) . It. I40)write( i6, ”( 'There  is  a  high  risk 
->->  of  complaints')") 

if  (blev( i)  .ge.  130.0. and. blev(i) .It. I40)write( i6, ''( 'There  is  a  possibilit 
->->  y  of  damage  complaints')") 

i f (blev( i) .ge. 140. 0)write( ib, "( 'Complaints  are  likely’)") 
if(blev(i) .ge. 140. 0)write(ib, “( 'Possible  damage  to  structures’)") 

write( i6, "  ( ' - - - - -  - - - 

•>->  - . - . "-•)") 

20  continue 

21  continue 

write(6,’’( 'hit  x  to  exit,  n  for  a  new  weight,  return  to  continue  ',$)") 
read(5,"(a)” )  ans 

i f ( (ans.eq. 'x ' ) .or . (ans.eq. ’ X ' ) )goto5 
1 1  ( (  uis . eq .  ' n  '  >  .or .  (ans.eq.  ' N  ‘  )  )qofo2 

4  continue 

if ( iw. eq. 1 )wri te( 7, " ( ' end  of  session')") 

5  write(6, '*( 'end  of  session' )") 

end 

subroutine  getval(val ,word,lww) 
character  ans,word(8) 
write ( 6, "( 'Change?  ( Y/N)  ->  ',S)H) 
read(5,"(a)”)  ans 

if(iww.eq.l)wrlte(7,"( 'Change?  (V/N)  ->  ‘,a)")ans 

if ( (ans.eq. ' y ‘ ) .or. (ans.eq. ' Y  * ) )goto9 

return 

9  wr ite (6, "( 'Enter  new  value  of  ',8al,'  ->  ',$)'')word 

rcad(5,«)  val 

t f( Iww.eq. l)wrlte(7,"( 'Enter  new  value  of  ',8al,'  ->  ' , f 12. 2)" )word, val 

return 

end 
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I 


a 


->-> 

->-> 

->-> 

->-> 

->•> 

->-> 

->•> 

->-> 

'>•> 

->-> 

->-» 

->-> 

->-> 


c  get  the  explosive  type 

subroutine  getet(answ,exptyp, iww) 
character  answ 


if((answ.eq. ' y ' ) .or. (answ.eq. 1 Y ' ))then 
write{6, " ( '  1)  TNT 
write(6,''('  2)  Terytol ,M1,M2 
write(6,''('  3)  Corap. C3,M3,M5 
write(6, " ( '  4)  Comp.C4,M5Al,M112 
write(6,"('  5)  Ammonium  nitrate 
write(6,"('  6)  Sheet  expl, ,M186,M118 
write (6," ('  7)  Military  dynamite. Ml 
write(6,"('  Straight  dynamite 
write(6, "( '  8)  40 

write(6,"('  9)  50% 

write(6, "{ ' 10)  60% 

write(6 , "(’ll)  PETN 
write(6, " ( ' 12)  Pentolite 
write(6, "(' Enter  explosive  type  number 
read ( 5 , "  ( i2 )  '* ) exptyp 


Ammonia  dynamite')") 

13)  40%')") 

14)  50%’)") 

15)  60%')") 
Gelatin  dynamite '  ) " ) 

16)  40%')") 

17)  50%')") 

18)  60%')'') 

19)  Teryl ' ) " ) 

20)  Comp.  B ' ) " ) 

21)  Amatol  80/20')") 

22 )  B2  ack  Powder ' ) " ) 

23 )  Nitrostarch' ) " ) 
'-$)) 


if(iww.eq.l)write(7,"( 'Enter  explosive  type  number  ' , 12) 11  )exptyp 


endif 


return 


end 


c  starting  information 

subroutine  strtinfo( iww) 

c  ans  for  Y/N  answers  and  iww  to  toggle  printing  to  fort. 7 
character  ans.anss 
iww-0 
iwww-0 

do  15,  i6-6, 7 

if(i6.ne.6.and.iwww.ne. l)gotol5 

write(i6, ”( 'This  program  makes  peak  level  noise  predictions  for  explosio 
ns  and' )" ) 

write(i6,"( 'possible  effects  of  the  predicted  levels.  The  program  is  us 
eful  for')") 

write(i6, "( 'siting  explosives  operations  and  for  assessing  infrequent  or 
unusual' )" ) 

write( i6, "( 'explosives  operations.  Note  that  any  lonq  term  operations  M 
UST  be ' ) " ) 

write(i6,"( 'assessed  by  the  proceedures  of  All  200-1  and  t  he  Intallation 
Compatible' )" ) 

write(i6, "( 'Use  Program.  This  program  can  not  be  used  over  water.  All 
weights')") 

write(  16, ''( 'are  in  kilograms,  all  distances  in  meters.  All  throughout  t 

his' )'') 

write(i6, '*( 'program  you  will  be  asked  (Yos/No)  questions.  The  computer 
reads  the')") 

*  write(i6,"( ’ first  letter  of  your  response  so  a  y  or  n  will  suffice  or  yo 
u  can  just 1 ) " ) 

write(i6,"(  ’hit  a  retui-n  to  continue.  All  weights  are  in  kilograms  and  a 

11')") 

writo( it, “( ‘distances  are  in  motors.  The  program  provides  weather  predi 
ct  ions '  )’* ) 

writ«(i6, "( ' for  three  weather  conditions  and  maximum  level  curve.’)") 
iff L6 .eq. 7. and. iwvw.oq. l)gotol4 
wri  “  ( ’  *)") 

wrtte{6,"( ‘Would  you  like  to  see  a  brief  chart  of  these  conditions’  (Y/N 
)  >  '.$)") 

i<\id(  5 ,"(«)")  ansa 

14  if  < (anss.eq. ’ y ' ) .or . (anss.eq. ‘ Y* ) ) then 

wr  l te ( 1 6 , * ( ' 1 )"> 

write( 16, "( ‘Negative  gradient-  Sunny  day,  cumulus  clouds,  mid  da 

y,  windy')") 

write(i6,"( ' * )*) 

wrlte(L6,"( 'Base-  Low  winds,  clouds,  fall  and  winter,  daytime' )“) 
wrlte(i6,"( ’ ' )H) 

wrlte(l6,“( 'Kocus-  Low  stable  clouds,  very  low  wlnds( < 2m/s) ,  nig 
ht  time  to  2hrs.')”) 

wrlfeef 16, "( 'after  sunrise,  winter  and  fall')") 
write(16,“( ‘ ' )") 

urlte(i6,“( 'Maximum  possible  overpressure-  Hare,  but  levels  will 

sometimes ' ) " ) 

write(l6,"( 'occur  under  extreme  focus  conditions.’)") 
write(i6,“( ' ' )“) 
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endif 

Lf  ( i.6  .eq.  7  .and.  iwww . eq . 1 ) gotol 5 

writ.e(6, "  <  'Do  you  want  this  introduction  in  a  storage  file’  (Y/N)  > 

->->  )") 

read( 5, " (a)" )  ans 

if ( (ans.eq. 'y ' ) .or , (ans.eq. ' Y' ) )iwww-l 
15  continue 

write(6/“ ( 'Do  you  want  this  session  to  be  put  recorded  in  a  storage  file 
->*>  ?  (Y/N)  ->  ’,$)")  • 

read( 5, " (a)" )  ans 

if ( (ans.eq. ' y ' ) .or . (ans.eq. ' Y' ) )iww-l 

if ( (ans.eq. 'y ') .or. (ans.eq. 'Y' ) )write(6, "( 'ok  it  will  be  in  fort. 7')") 
write (7," ( 1 ' )" ) 

write(7, " ( 'These  are  the  standard  explosive  types  to  be  used.')”) 

write(7,"( 'l)  M1A1  bangalore  torpedo')") 

write ( 7, ” ( ' 2)  M2A2  bangalore  torpedo')") 

write{7, " ( ’3)  40  lb  cratering  charge')") 

write(7, " ( ' 4 >  M2A3  15  lb  shaped  charge')") 

write  ( 7, "  ( '  5)  M2A4  15  lb  shaped  charge')1') 

write(7,''( '6)  M3  40  lb  shaped  charge')") 

write(7,"( ’7)  M3A1  40  lb  shaped  charge’)") 

write(7,"( ' ' )") 

write(7,"( 'These  are  the  explosive  types  available,  used  for  finding  eff 
>->  icencies. ' )” ) 

write(7,"('  1)  TNT  Ammonia  dynamite')") 

write(7,"( '  2)  Terytol ,M1 ,M2  13)  40%')") 

wri te( 7. " ( ’  3)  romp. Cl, M3, M5  14)  50%')") 

write(7, n ( '  4)  Comp . C4 ,M5A1 ,M112  15)  60%')") 

write(7,"(‘  5)  Ammonium  nitrate  Gelatin  dynamite')") 

write(7,"( '  6)  Sheet  expl . ,M186,M118  16)  40%’)") 

write(7,"( '  7)  Military  dynamite, Ml  17)  50%')'') 

write(7,"('  Straight  dynamite  18)  60%')") 

write(7,"( '  8)  40  19)  Teryl')") 

write(7, " ( '  9)  50%  20)  Comp.  B')") 

write(7,“( ’10)  60%  21)  Amatol  80/20' )") 

write(7,"( 'll)  PETN  22)  Black  Powder')") 

write(7,"( '12)  Pentolite  23)  Nitrostarch ‘ ) " ) 

write ("/,■'( ' ' )'') 
ret  urn 
end 
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